home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 Game / Image.bin / Role Playing and Strategy / Starbound II.hqx / Starbound II / AI agents / Gypsum.rsrc / ss$t_128 < prev    next >
Encoding:
Text File  |  1998-05-14  |  473 b   |  17 lines
  1. situation start_game
  2. vars
  3.    w_spending : integer;
  4.    s_spending : integer;
  5.    m_spending : integer;
  6.    d_spending : integer;
  7.    tech_min : integer;
  8.  
  9. begin
  10.    // At the beginning of the game we determine how we will divide the spending
  11.    w_spending := Random(40) + 20;
  12.    s_spending := Random(40) + 20;
  13.    m_spending := Random(40) + 20;
  14.    d_spending := Random(40) + 20;
  15.   // Now we decide the minimum tech before we start building ships
  16.    tech_min := Random(3) + 1;
  17. end;